home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGNG_C / 12CUTILS.LZH / WRITES.C < prev   
Text File  |  1984-06-25  |  944b  |  25 lines
  1. /*                          *** writes.c ***                        */
  2. /*                                                                   */
  3. /* IBM - PC microsoft "C"                                            */
  4. /*                                                                   */
  5. /* Function to write a string to stdout.                             */
  6. /* Returns the number of characters written including the NULL.      */
  7. /*                                                                   */
  8. /* written by L. Cuthbertson, March 1984.                            */
  9. /*                                                                   */
  10. /*********************************************************************/
  11. /*                                                                   */
  12.  
  13. #define NULL '\000'
  14.  
  15. int writes(s)
  16. char s[];
  17. {
  18.     int i,writec();
  19.  
  20.     for (i=0;(s[i] != NULL);i++)
  21.         writec(s[i]);
  22.  
  23.     return (i);
  24. }
  25.